1 poke51,0:poke55,0:poke52,29:poke56,29
    2 for a=0to165:read b:poke 7424+a,b
    3 c=c+b:next:ifc=20902 then sys 7424
    4 print c: rem vic tape align 0.1 /yoyoregime
    5 data 32,148,248,32,95,229,120
    6 data 160,127,140,46,145,169,130
    7 data 141,46,145,173,28,145,41
    8 data 241,9,12,141,28,145,169
    9 data 148,141,2,144,169,0,133
   10 data 211,169,30,133,212,173,4
   11 data 144,16,251,162,30,160,0
   12 data 169,2,200,44,45,145,240
   13 data 250,173,33,145,173,15,144
   14 data 73,2,141,15,144,202,224
   15 data 25,176,230,24,152,74,74
   16 data 168,177,211,176,18,201,32
   17 data 208,5,169,97,76,115,29
   18 data 201,225,208,22,169,160,76
   19 data 115,29,201,32,208,5,169
   20 data 225,76,115,29,201,97,208
   21 data 4,169,160,145,211,224,0
   22 data 208,182,169,11,141,15,144
   23 data 165,211,24,105,20,133,211
   24 data 144,2,230,212,165,212,201
   25 data 31,240,4,176,8,144,149
   26 data 165,211,201,204,144,143,186
   27 data 32,150,239,202,208,250,32
   28 data 95,229,76,32,29